home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
SelectThread.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
722b
|
38 lines
/*
$VER: SelectThread.zprx 1.1 (8.9.94) by Ralph Seichter
ARexx script for Zodiac's Point 3.7.
Selects all members of the current message thread. I suggest you
to bind this script to an F-Key, e.g. by adding the entry
F1:SYS:Rexxc/RX ZP:Rexx/SelectThread.zprx %s
to your "fkeys.zp" file.
*/
PARSE ARG zpPort
ADDRESS VALUE zpPort
OPTIONS RESULTS
whichlevel
IF RESULT = "BOARD" THEN DO
d = 1
DO WHILE d > 0
messageinfo depth
d = RESULT
IF d > 0 THEN
up
END
d = 1
DO WHILE d > 0
selectmessage
down
IF RC THEN DO
messageinfo depth
d = RESULT
END
ELSE
d = 0
END
END